﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE

Public Class FisicoBC

    Public Sub insertar_fisico_per(ByVal IDPOACT As String, ByVal Ejec_M As String, ByVal MTM1 As String,
                                 ByVal MTM2 As String, ByVal MTM3 As String, ByVal MTM4 As String,
                                 ByVal IDFPER As String, ByVal IDPLAN As String, ByVal OB As String, ByVal F1 As String, ByVal F2 As String, ByVal F3 As String, ByVal F4 As String, ByVal E As String, ByVal strVersion As String)
        Dim objFISICODA As FisicoDA

        Try
            objFISICODA = New FisicoDA
            objFISICODA.insertar_fisico_per(IDPOACT, Ejec_M, MTM1, MTM2, MTM3, MTM4, IDFPER, IDPLAN, OB, F1, F2, F3, F4, E, strVersion)

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Public Function filtrar_fisico(ByVal poa As String) As DataTable
        Dim objFisicoDA As FisicoDA
        Dim objDt As DataTable

        Try
            objFisicoDA = New FisicoDA
            objDt = objFisicoDA.filtrar_fisico(poa)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    'verifica_accion
    Public Function verifica_accion(ByVal srtPoa As String, ByVal strPeriodo As String) As Integer
        Dim objFisicoDA As FisicoDA
        Dim NUMERO As Integer

        Try
            objFisicoDA = New FisicoDA
            NUMERO = objFisicoDA.verifica_accion(srtPoa, strPeriodo)
            Return NUMERO
        Catch ex As Exception
            Throw ex
        End Try
    End Function
  
    Public Function editar_fisico(ByVal srtPoa As String, ByVal strPeriodo As String, ByVal strVersion As String) As DataTable
        Dim objFisicoDA As FisicoDA
        Dim objDt As DataTable

        Try
            objFisicoDA = New FisicoDA
            objDt = objFisicoDA.editar_fisico(srtPoa, strPeriodo, strVersion)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Sub edicion_grilla(ByVal strEjec_M As String, ByVal strM1 As String, ByVal strM2 As String, ByVal strM3 As String, ByVal strM4 As String, ByVal strCodigo As String, ByVal OB As String, ByVal F1 As String, ByVal F2 As String, ByVal F3 As String, ByVal F4 As String, ByVal E As String, ByVal strVersion As String)
        Dim objFISICODA As FisicoDA

        Try
            objFISICODA = New FisicoDA
            objFISICODA.edicion_grilla(strEjec_M, strM1, strM2, strM3, strM4, strCodigo, OB, F1, F2, F3, F4, E, strVersion)

        Catch ex As Exception
            Throw ex
        End Try
    End Sub
  


End Class
